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Bas 


FFFFFFFFFRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTTT LLet 
FFFFFRFFRRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTFT Lie 
FFFFFRFRRRFFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTITTTTTTTT §=LtL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFE 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 

FFF 000 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR = =RRR TTT LLL 

FFF 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 0 000 RRR RRR RRR RRR TTT LLL 

FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLELLLLLLLLLL 
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FFFFFRFFFF OO0000 =RRRRRRRR-~=—s— EEEEEEEEEE NN NN CCCCCCCC 000000 MM MM FFFFFFFFFF 

FEFFFFFFFF 000000 RRRRRRRR  EEEEEEEEEE NN NN CCCCCCCC 000000 += MM MM FFFFFFFFFF | 
FF 00 00 RR RR EE NN NN CC 00 00 MMMM MMMM FF 
FF 00 00 RR RR EE NN NN CC 00 00 MMMM MMMM FF 
FF 00 00 RR RR EE NNNN NN CC 00 00 MM MM MM FF 
FF 00 00 EE NNNN NN CC 00 00 MM MM MM FF 
FFFFFFFF 00 OO RRRRRRRR EEEEEEEE NN NN NN CC 00 00 MM MM FFFFFFFF | 
FFFFFFFE 00 OO RRRRRRRR EEEEEEEE NN NN NN CC 00 00 MM MM FFFFFFFF | 
FF 00 0O RR RR EE NN NNNN CC 00 00 MM MM FF 
FF 00 0O RR RR EE NN  NNNN CC 00 00 MM MM FF 
FF 00 RR RR EE NN NN CC 00 00 MM MM FF “_ | 
FF RR RR_ EE NN NN CC 00 00 MM MM FF sen 
FF 000000 =—s RR RR EEEEEEEEEE NN NN CCCCCCCC 000000 MM MM FF aed | 
FF 000 ~=—s RR RR EEEEEEEEEE NN NN CCCCCCCC 000000 #£™M MM FF aD 
LL II1111 SSSSSSSS 
LL HII] SSSSSSSS 
LL I] S$ | 
LL I] SS 
LL 1] SS | 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS | 
LL I] SS 
LL I] SS 
LL I] Ss 
LLLLLLLLLL III SSSSSSSS 
LLLLLLLLLL III] SSSSSSSS 
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FORSENCODE_MF = entry point for FORTRAN ENCODE FORMATT 15-SEP-1984 $3:31:28 AX/VMS Macro V04-00 Page 1 
1-011 6-SEP-1984 :55:00 FORRTL.SRC Cir ORENCOMF .MAR; 1 (1). 
-TITLE FORSENCODE_MF = entry y peice for FORTRAN ENCODE FORMATTED 
~IDENT /1-011/ File: FORENCOMF.MAR Edit: JAW1011 


FRR RARARAARAAAALALAAALALASALSAERSESASASELAS EASA SESS RASA RE ERR SARE SESE R ESE SSE 


COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
DIGITAL EQUIPMENT CORPORATION,” MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND og ha 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE on “a THE 


** 
*® ® 
** ® 
** € 
*® ® 
*® * 
** ® 
:* * 
;* IN N OF T 0 OFTWARE. OR OTHER * 
fe COPIES, THEREOF MAY NOT BE PROVIDED. OR OTHERWISE MADE AVAILABLE TO ANY = 
ff OTHER PERSON, NO TITLE TO AND OWNERSHIP OF THE SOFTUARE TS HEREBY 
:* TRANSFERRED. ' 
** sd 
:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ®* 
s* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
:® CORPORATION. ‘ 
:* ® 
s® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
;* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . 
:* t 
** * 
** * 


-RARRBRASRARASASASAAAALALEAASEESELESESEERE SESS S SESE R ESAS ESSER ARRAS ARSE SESSA SY 


¢ ABSTRACT: 


SOOCOOCCOCCOCSCSOSCOOCOCOCOOOCOOCOCOOOOCOOOOOOOOOOoO 


This module contains the entry point for the FORTRAN 
ENCODE FORMATTED I/O statement. It is simply 
a call to FORS$I 
parameter List. 


; MAINTENANCE NOTE: 
The transfer vector (RTLVECTOR+ALLGBL) must have the following: 
. TRANSFER FORSENCODE _MF 
. MASK FORS$IO_ BEG 


BRW FORSENCODE _MF +2 


This puts the correct mask in entry vector, that is FORS$S$IO_BEG entry mask. 
Furthermore this module must only use RO an 
since any other register might not be in the entry mask for FORS$I0_BEG. 


0_BEG with bits in RO whic describe the 
FORS$IO_BEG interprets the parameters. 


; ENVIRONMENT: User access mode; mixture of AST level or not 
; AUTHOR: Richard B. Grove, CREATION DATE: 28-May-78 


: ; MODIFIED BY: 
- Hastings, 29-July-78 


SOCOCSCOSCOOOCOCOSOSOSOOCOSOOOOOOOSOOOOSOOSCOCOOSO OOOO SOOOOC OOO OOOOOOOOOOOOO 
FPWR CO ODNA MEW  O OOD NOAU EWN OS OD NAME WIN OC OONOAU EWN (OOO NOUE Win 


i++ 
: FACILITY: FORTRAN Support Library - user callable 


PVP BB BB EB ANNAN III nonoNnononongwfp9nsn ee es es es es 
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1 HISTO ’ Detailed Current Edit History ansep=1 986 13:85:00 EPORRTL. SRCIFORENCOMF «MAR: 1 set by 


-SBTTL HISTORY ; Detailed Current Edit History 


Edit History for Version 1 


pI - Add comment about vectors. TNH 23«June-78 
“12. = Pass arg in RO, not ROR, add comments. TNH 29-July-78 
1-001 = Update version number and copyright notice. JBS 16-NOV-78 
1-006 - Change statement type symbols to be LUBSK... JBS 07-DEC-78 
1-005 - Change statement t pe symbols to be ISBSK..._ JBS 11-DEC-78 
1-004 - t SECT directive. JBS 22-DEC-7 
1-005 = Add FORSREAD_KF FORSREAD_KO, FORSREWRITE_SF, FORSREWRITE_SO, 
FORSREAD_IF, FORSREAD_10, FORSWRITE_IF, FORSWRITE_10, 
FORSREAD_KU FORSREWRITE_SU, 
SBL e-Ray-1979 
Remove all 


entry poles that need object time formatting, 

putt ne them in FORSENTRY_OBJ so that we can arrange to 

oad the format compiler only when it is needed. 
JBS 26-JUN-1979 

1-007 = Remove entry point FORSENCODE_MF; we will code a new module 

for it and FOR$$!0 BEG, to see how much 1/0 initiation time 

improves. JBS 02-JUL-1979 

1-008 - Do likewuse for FORSREAD_DU and FORSWRITE_DU. JBS 03-JUL-1979 | 

1-009 = Remove all entry points except FORSENCODE_MF; each of the 
others gets its own module so we can potect vwely load 
the necessary UDF and REC modules. JBS 09-JUL-1979 

1-010 - New parameter format for FORS$$I0_BEG. SBL 5-Dec-1979 

1-011 = Change BRW FORS$IO_BEG+2 to JMP G*FORSSIO_BEG+2. JAW 21-Feb-1981 


poole lo lolo loo lolololololololololeololololoelolelolo) 
feleleleleleleleleleleleleleleleleleleleleleoleolelolo) 
COO9 M09 NIN NNN NNN NIA AAA AAA 
WE $9 OONOUELS WIN O ODNAUE WN OOONO 
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2 
FORSENCODE _MF - entry point for FORTRAN ENCODE FORMATI 17-360-13 4 3$1:3 AX/VMS o V04-00 Page 
1-011 DECLARATION NS 6-SEP-1984 #3: 355: 80 LPORRTL.S TFORE NCOMF .MAR; 1 1 3) | 
st i .SBTTL DECLARATIONS 
0 ; 
000 ‘ ; INCLUDE FILES: 
$000 9; 
0000 90 
0000 91 $SFORPAR ; Define inter-module FORTRAN symbols 
0000 3 SISBDEF : Define statement type symbols 
0000 4g 
0000 94 ; 
0000 95 : EXTERNAL SYMBOLS: 
44 89 ; 
000 9 
0000 98 -DSABL GBL ; Declare all external symbols 
5000 100 M -EXTRN FORS$I0_BEG ; common I/0 statement processing 
0000 101 ; The peigetg. reverenepe are to make sure the necessary UDF and REC 
0000 Ie 3 ; modules are loaded. ese are the routines which are called through 
i 137 3. 3; the dispatch tables ry FORSSDISPAT. 
0000 105 -EXTRN FORSSUDF_WFO, FORSSUDF _WF1, FORSSUDF_WF9 | 
4 136 ~EXTRN FORSSREC “wMF 6, FORSS$REC_ WMF1, FORSSREC_wMF9 
0000 108; | 
0000 109 ; MACROS: 
0000 110; 
0000 111; NONE | 
0000 113 ; PSECT DECLARATIONS: 
0000 114; 
0000 115 
ee. 118 -PSECT _FORSCODE PIC,USR,CON,REL,LCL,SHR,EXE,RD,NOWRT,LONG 
0000 118 ; 
0000 119 ; EQUATED SYMBOLS: 
0000 120 ; 
0000 121 
0000 \¢¢ 
0000 123; 
0000 ise ; OWN STORAGE: 
0000 125; | 
0000 126; NONE 
0000 127; | 
} 


Rm . 
| ied FORSENCODE.MF ~ ENCODE formatted on’ '-SEp=1984 10:55:00 EFORRTL.SRCIFORENCOMF.MaR:1 '@9° cay, 
00 «SBTTL FORSENCODE_MF - ENCODE formatted | 
009 * FUNCTIONAL DESCRIPTION: 
000 Initialize the FORTRAN I/0 system to perform 
Bop a ENCODE formatted 1/0 statement. 
600 : CALLING SEQUENCE: 


CALL FORSENCODE_MF (char_cnt.rlu.v, format_adr.mbu.ra, usr_buf_adr.wt.ra 
. err_adr.j.r C, end_adr.j.rJJ) 


| 

; 

: INPUT PARAMETERS: 

: unit.rl.v Logical unit number 

: format_adr.mbu.ra adr. of compiled format byte array 

; usr_buf_adr.wt.ra adr. of user's buffer 

3 porte P32 optional ERR= address 

: end_adr.j.rJ optional END= address 

; IMPLICIT INPUTS: 

: NONE except those used by FOR$$IO_BEG. 

+ OUTPUT PARAMETERS: 

: NONE | 

: IMPLICIT OUTPUTS: | 

: NONE except those left by FORS$IO_BEG. 

: COMPLETION CODES: | 

; NONE | 

; | 
| 


SIDE EFFECTS: 


Sooo 
SOOoCooCoOOCOooCoCoCOoOoCOoOooOOoOSoOoOoOoOOoOOoOSoO oO 


DDD MVOOCOCOCOCOCOCSCOCOSCO COCO CSOOOOCCOOSOOOOOSO OOOO OOOOOOOO 

det ti ade aad ad ad ah a aad ad ad adababmbababababababaAad tabahabaabahabapabaBabadaabaiand 
SSSI NDS DS DS DED DDS DS DDS TTT TU BS BS BE BB BB AAI AAW 
NOUS WN @ OOO NAUES WN 9 ODONAU EWN 0 ODNAMU SW OOONOUS WN 00 


COOCOCCOCOCOOCOOOOCOOOOCOSO SOOO OOOOOOOOCOOOOOCOOCOoOO 
SOCCSCOSOOCOSCOSOSCOOCOCSOOSOOSOOCOOSCOOOOOCOOOOOoOO 


0 

NONE except those of FORS$IO_BEG. 

; ‘oo 

5 0 FORSENCODE _MF:: .MASK FORS$IO_BEG 
0 0B 9A 0 MOVZBL #ISBSK_ST_TY_WMF, RO ; Statement type 
00000002'GF 17 9 JMP G*FORS$SI0_BEG+2 ; branch past call mask 

0 

0 


- END 
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FORSENCODE MF 


AX/VMS Macro V04-00 Page 
Symbol table 


M 
- entry point for FORTRAN ENCODE FORMATT 15-SEP-1984 251:3 
Jug 198 ‘ 55:0 FORRTL.SR 


6-SEP- 


FORSS10_ BEG teeeeeeer YX 09 

FORSSREC_WMFO eeeeeeee =X 0 

FORSSREC_WMF 1 eeeeeeee =X 0 

FORSSREC_WMF9 eeeeeeee =X 0 

FORSSUDF _WFO eeeeeeee XxX 00 

FORSSUDF _WF 1 eeeeeeee =X 00 

FORSSUDF WF9 eeeeeeee YX 0 

FORSENCODE MF 00000000 RG 01 

ISBSK_ST_TY_wMF = 00000008 
eee ea see ene enone + 
! i Psect synopsis ! 

Allocation PSECT No. Attributes 


S 00000000 ( 0.) 00 ¢ OO.) NOPIC USR CON ABS LCL < woes NORD NOWRT NOVEC BYTE 
FORSCODE 0000000B Tic! Bae Vet PIC USR CON REL iG SHR EXE RD NOWRT NOVEC LONG 
(ce iE Aimee 
! ; Performance indicators : 
Phase Page faults CPU Time Elapsed Time 
Initialization 31 00:00:00.08 00:090:00.80 
Command processing 117 00:00:00.58 a TS 
Pass 1 124 00:00:01.27 00:00:04.84 
Symbol table sort 0 00:00:00.19 00:00:00.28 
Pass 2 48 00:00:00.49 00:00:01.67 
Symbol table output 3 00:00:00.02 00:00:00.02 
Psect synopsis output 2 00:00:00.00 00:00:00.04 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 327 00:00:02.66 00:00:10.83 


The working set Limit was 900 pages. 

6671 bytes (14 pages) of virtual memory were used to buffer the intermediate code. 

There were 20 pages of symbol table ng oa a ecenee to hold 187 non-local and 0 Local symbols. 
177 source Lines were read in Pass 1, produci id object records in Pass 2. 

9 pages of virtual memory were used to define 2 macros. 


Macro library name 


“B52 2SDUAG8: FORRTL.OBJJFORRTL.MLB;1 
“$255$DUA28:(SYSLIBISTARLET. MLB; 

TOTALS (all Libraries) 

183 GETS were required to define 2 macros. 


There were no errors, warnings or information messages. 


5 
RCIF ORENCOMF .MAR; 1 (4) 


MACRO/ENABLE =SUPPRE SS 10N/D1 SABLE=(GLOBAL , TRACEBACK) /LIS=L1S$:FORENCOMF /OBJ=OBJ$:FORENCOMF MSRC$:FORENCOMF /UPDATE=(ENHS:FORENCOMF )+L1 | 
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